unit ParamFrm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Edit, RzPanel, ExtCtrls, RzDlgBtn, RzDBEdit, StdCtrls, Mask,
  RzEdit, RzLabel, RzCmboBx, RzDBCmbo;

type
  TParamFrmFrm = class(TEditFrm)
    RzDBEdit1: TRzDBEdit;
    RzDBNumericEdit1: TRzDBNumericEdit;
    RzLabel13: TRzLabel;
    RzLabel1: TRzLabel;
    RzLabel2: TRzLabel;
    RzLabel3: TRzLabel;
    RzLabel4: TRzLabel;
    RzLabel5: TRzLabel;
    RzLabel6: TRzLabel;
    RzLabel7: TRzLabel;
    RzLabel8: TRzLabel;
    RzLabel9: TRzLabel;
    RzLabel10: TRzLabel;
    RzLabel11: TRzLabel;
    RzLabel12: TRzLabel;
    RzDBNumericEdit2: TRzDBNumericEdit;
    RzDBNumericEdit3: TRzDBNumericEdit;
    RzDBNumericEdit4: TRzDBNumericEdit;
    RzDBNumericEdit5: TRzDBNumericEdit;
    RzDBNumericEdit6: TRzDBNumericEdit;
    RzDBNumericEdit7: TRzDBNumericEdit;
    RzDBNumericEdit8: TRzDBNumericEdit;
    RzDBNumericEdit9: TRzDBNumericEdit;
    RzDBNumericEdit10: TRzDBNumericEdit;
    RzDBNumericEdit11: TRzDBNumericEdit;
    RzDBNumericEdit12: TRzDBNumericEdit;
    RzLabel14: TRzLabel;
    RzLabel15: TRzLabel;
    RzDBNumericEdit13: TRzDBNumericEdit;
    RzDBNumericEdit14: TRzDBNumericEdit;
    RzLabel16: TRzLabel;
    RzDBComboBox1: TRzDBComboBox;
    procedure RzDialogButtons1ClickOk(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ParamFrmFrm: TParamFrmFrm;

implementation

uses DM, CDefine;

{$R *.dfm}

procedure TParamFrmFrm.RzDialogButtons1ClickOk(Sender: TObject);
begin
  inherited;
  dmMain.ParamList.Open;
  dmMain.ParamList.Append;
  dmMain.ParamList.fieldByName('MeterName').Value   := dmMain.qryParam.fieldByName('MeterName').Value;
  dmMain.ParamList.fieldByName('CoalType').Value   := dmMain.qryParam.fieldByName('CoalType').Value;
  dmMain.ParamList.fieldByName('IL0').Value   := dmMain.qryParam.fieldByName('IL0').Value;
  dmMain.ParamList.fieldByName('IH0').Value   := dmMain.qryParam.fieldByName('IH0').Value;
  dmMain.ParamList.fieldByName('ILb').Value   := dmMain.qryParam.fieldByName('ILb').Value;
  dmMain.ParamList.fieldByName('IHb').Value   := dmMain.qryParam.fieldByName('IHb').Value;
  dmMain.ParamList.fieldByName('k1').Value   := dmMain.qryParam.fieldByName('k1').Value;
  dmMain.ParamList.fieldByName('k2').Value   := dmMain.qryParam.fieldByName('k2').Value;
  dmMain.ParamList.fieldByName('k3').Value   := dmMain.qryParam.fieldByName('k3').Value;
  dmMain.ParamList.fieldByName('k4').Value   := dmMain.qryParam.fieldByName('k4').Value;
  dmMain.ParamList.fieldByName('Wh').Value   := dmMain.qryParam.fieldByName('wh').Value;
  dmMain.ParamList.fieldByName('wl').Value   := dmMain.qryParam.fieldByName('wl').Value;
  dmMain.ParamList.fieldByName('we').Value   := dmMain.qryParam.fieldByName('we').Value;
  dmMain.ParamList.fieldByName('ws').Value   := dmMain.qryParam.fieldByName('ws').Value;
  dmMain.ParamList.fieldByName('XiShu').Value   := dmMain.qryParam.fieldByName('XiShu').Value;
  dmMain.ParamList.fieldByName('DiShu').Value   := dmMain.qryParam.fieldByName('DiShu').Value;
  dmMain.ParamList.fieldByName('SaveDate').Value   := Now; 
  dmMain.ParamList.fieldByName('UserName').Value   := gUser.UserName;

  dmMain.ParamList.Post;
  dmMain.ParamList.Close;
end;

end.
